home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / PLOTSRC.EXE / PLOTSTOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-10  |  2.4 KB  |  104 lines
  1. Unit PLOTSTOR;
  2.  
  3. Interface
  4.  
  5. uses
  6.   Crt,
  7.   Dos,
  8.   StrTool,
  9.   GEDDEFS,
  10.   KEYSCRN,
  11.   PLOTSYS,
  12.   TEMPSTM;
  13.  
  14.  
  15. Const Maxpuff =40;
  16.       Halbpuff =20;
  17.       GenugRam = 32768; (* 32 K *)
  18.       DWG_Modified:Boolean=false;
  19.       DiskError:Str64='';
  20.  
  21. Type Maclistptr =^Maclist;
  22.      Maclist =Record
  23.                   Entry    :Bildelement;
  24.                   Next     :Maclistptr;
  25.                 End;
  26.       Macptr = ^Macroliste;
  27.       Macroliste= Record
  28.                     Macname   :  Str10;
  29.                     MaxRecs   :  Word;
  30.                     Layers    :  Layerset;
  31.                     Mac       :  Maclistptr;
  32.                     Naechster :  Macptr;
  33.                  End;
  34.      RecBlock = Array[0..255] of Bildelement;
  35.      RecStack = Array[0..64] of ^RecBlock;
  36.      DataFile = File; { of Bildelement; }
  37.  
  38. Var   PAnfang,PEnde,PEintraege : Integer;
  39.       Puffer  : Array[1..Maxpuff] of Bildelement;
  40.       Macrosfirst,Macroslast : Macptr;
  41.       StackZeiger,FirstFree, NmaxMem,
  42.       StackMin,IoStatus              :Word;
  43.       OK                             :Boolean;
  44.       TMP                            :PTMPStream;
  45.       RecordStack                    :RecStack;
  46.       HauptDF         : Datafile;
  47.       HauptF,OutF     : Str10;
  48.  
  49. Procedure InitMacs;
  50.  
  51. Procedure Entertolist(Var Name:Str10;
  52.                       Var Macroliste :Maclistptr);
  53.  
  54. Function SearchinList(Var Name :Str10;
  55.                       Var Nmax :Word;
  56.                       Var Foundptr :Macptr;
  57.                       Var Macroliste :Maclistptr):Boolean;
  58.  
  59.  
  60. Procedure EntertoMac(Var Bildrec :Bildelement;
  61.                      Var Firstfree :Maclistptr);
  62.  
  63. Procedure ClearMacs;
  64.  
  65. Procedure DiskErrors(Nr :Integer);
  66.  
  67. Procedure PromptError;
  68.  
  69. Function OpenError:Boolean;
  70.  
  71. Procedure StIoCheck(K:Word);
  72.  
  73. procedure OpenFile(var DatF   : DataFile; FName  : Str64);
  74.  
  75. procedure MakeFile(var DatF   : DataFile; FName  : Str64);
  76.  
  77. procedure CloseFile(var DatF : DataFile);
  78.  
  79. Function UsedRecs(var DatF : DataFile):LongInt;
  80.  
  81. Procedure InitStorage;
  82.  
  83. Procedure EndStorage;
  84.  
  85. Procedure ResetStack(K :Word);
  86.  
  87. Procedure GetRec(Var Obj :Bildelement;K :Word);
  88.  
  89. Procedure PutRec(Obj :Bildelement;K :Word);
  90.  
  91. Procedure AddRec(Obj : Bildelement; Var K :Word);
  92.  
  93. Procedure DeleteRec(Var Obj: Bildelement;K: Word);
  94.  
  95. {===========================================================================}
  96.  
  97. Implementation
  98.  
  99.  
  100. (*$I MACLIST.INC*)
  101. (*$I STORAGE.INC *)
  102.  
  103. End.
  104.